(rmail-process-new-messages): Handle missing From

line (usually spam).

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 39465bbc485972ff9468a153f94372bae7b0a800..7c3a560c306cea4d29f4fe46b9073586d80cd060 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1922,8 +1922,8 @@ non-nil then do not show any progress messages."
                                       keywords
                                       date
                                       (count-lines start end)
-                                      (cadr (mail-extract-address-components
-                                             (rmail-header-get-header "from")))
+                                      (cadr (mail-extract-address-components; does not like nil
+                                             (or (rmail-header-get-header "from") "")))
                                       (or (rmail-header-get-header "subject")
                                           "none")))
                           message-descriptor-list)))))